home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / Char.st < prev    next >
Text File  |  2000-02-13  |  1KB  |  71 lines
  1. Class Char :Magnitude
  2. [
  3.    == aChar
  4.       ^ <primitive 6 self aChar>
  5.          ifTrue:  [<primitive 46 self aChar>]
  6.          ifFalse: [false]
  7. |   
  8.    < aChar
  9.       ^ <primitive 6 self aChar>
  10.          ifTrue:  [<primitive 42 self aChar>]
  11.          ifFalse: [self compareError]
  12. |
  13.    = aChar
  14.       ^ <primitive 6 self aChar>
  15.          ifTrue:  [<primitive 46 self aChar>]
  16.          ifFalse: [self compareError]
  17. |   
  18.    > aChar
  19.       ^ <primitive 6 self aChar>
  20.          ifTrue:  [<primitive 43 self aChar>]
  21.          ifFalse: [self compareError]
  22. |
  23.    asciiValue
  24.       ^ <primitive 59 self>
  25. |
  26.    asLowercase
  27.       ^ <primitive 54 self>
  28.          ifTrue:  [<primitive 57 self>]
  29.          ifFalse: [self]
  30. |
  31.    asUppercase
  32.       ^ <primitive 53 self>
  33.          ifTrue:  [<primitive 57 self>]
  34.          ifFalse: [self]
  35. |
  36.    asString
  37.       ^ <primitive 58 self>
  38. |
  39.    compareError
  40.       ^ self error: 'char cannot be compared to non char'
  41. |
  42.    digitValue      ! i !
  43.       ((i <- <primitive 50 self>) isNil)
  44.          ifTrue: [self error: 'digitValue on nondigit char'].
  45.       ^ i
  46. |
  47.    isAlphaNumeric
  48.       ^ <primitive 56 self>
  49. |
  50.    isDigit
  51.       ^ self between: $0 and: $9
  52. |
  53.    isLetter
  54.       ^ self isLowercase or: [self isUppercase]
  55. |
  56.    isLowercase
  57.       ^ self between: $a and: $z 
  58. |
  59.    isSeparator
  60.       ^ <primitive 55 self>
  61. |
  62.    isUppercase
  63.       ^ (self between: $A and: $Z)
  64. |
  65.    isVowel
  66.       ^ <primitive 51 self>
  67. |
  68.    printString
  69.       ^ '$' , <primitive 58 self>
  70. ]
  71.